home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMBR3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  802b  |  38 lines
  1. Program DemoBrowseArrayThree;
  2. {DEMBR3 - not you may need to execute this program from DOS since,
  3.  it uses over 300k of heap space to illustrate the speed of browsing
  4.  huge lists}
  5. Uses DOS,CRT,
  6.      totFAST, totLINK, totLIST, totSTR;
  7.  
  8. var
  9.    BWin: BrowseLinkOBJ;
  10.    LL : StrDLLOBJ;
  11.  
  12. procedure CreateLinkedList;
  13. {}
  14. var
  15.   I, Retcode : integer;
  16. begin
  17.    with LL do
  18.    begin
  19.       Init;
  20.       for I := 1 to 500 do
  21.          Retcode := Add('This is line '+IntToStr(I)+': '+replicate(200,char(random(255))));
  22.    end; {with}
  23. end; {CreateLinkedList}
  24.  
  25. begin
  26.    Screen.Clear(white,'░'); {paint the screen}
  27.    CreateLinkedList;
  28.    with BWin do
  29.    begin
  30.       Init;
  31.       AssignList(LL);
  32.       Win^.SetTitle('List Browse Demo');
  33.       Go;
  34.       Done;
  35.       LL.Done;
  36.    end;
  37. end.
  38.